package Legend.Roles.Specials is

   type Player_Type is new Role_Type with private;
   
   
private
   type Player_Type is new Role_Type with record
      Accelerated : Boolean := False; -- 是否已加速运动
   end record;

   overriding
   procedure On_Before_Walk 
      (this : in out Player_Type; 
      target : Point_Type;
      allow : in out Boolean);

   overriding
   procedure On_After_Walk (
      this : in out Player_Type
      );

end Legend.Roles.Specials;

